#!/usr/bin/perl
# clear_log.cgi
# Display Logfile Properties
require './naslog-lib.pl';
&ReadParse();
my $file=$config{$in{'log'}};
truncate $file,0;
&redirect("$in{'log'}.cgi");

